home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / A-An / ActItems24.cpt / ActItems24 / Action Items / background_27702.txt < prev    next >
Text File  |  1987-10-20  |  3KB  |  113 lines
  1. -- background: 27702 from stack: in
  2. -- bmap block id: 7336
  3. -- flags: 4000
  4. -- background id: 0
  5. -- name: Intro Backgrnd
  6. ----- HyperTalk script -----
  7. on openBackground
  8.   show button 2
  9.   show background field "My Name Info"
  10.   wait for 3 seconds
  11.   hide background field "My Name Info"
  12. end openBackground
  13.  
  14.  
  15. -- part 1 (button)
  16. -- low flags: 00
  17. -- high flags: 2000
  18. -- rect: left=391 top=291 right=314 bottom=414
  19. -- title width / last selected line: 0
  20. -- icon id / first selected line: 0 / 0
  21. -- text alignment: 65535
  22. -- font id: 0
  23. -- text size: 12
  24. -- style flags: 0
  25. -- line height: 16
  26. -- part name: Start
  27. ----- HyperTalk script -----
  28. on mouseUp
  29.   set lockScreen to true
  30.   hide background field "My Name Info"
  31.   go to first card of background "Action Items"
  32.   find the long date in background field ID 9
  33.   put number of this card into X
  34.   if X = number of cards then
  35.     hide background button "Next"
  36.     hide background button "Last Card"
  37.   else
  38.     show background button "Next"
  39.     show background button "Last Card"
  40.   end if
  41.   if X = 12 then
  42.     hide background button "Prev"
  43.     hide background button "First Card"
  44.   else
  45.     show background button "Prev"
  46.     show background button "First Card"
  47.   end if
  48.   hide field 3
  49.   hide field 4
  50.   set lockScreen to false
  51.   click at 72,109
  52. end mouseUp
  53.  
  54.  
  55.  
  56. -- part 2 (button)
  57. -- low flags: 00
  58. -- high flags: 2000
  59. -- rect: left=42 top=287 right=319 bottom=74
  60. -- title width / last selected line: 0
  61. -- icon id / first selected line: 20098 / 20098
  62. -- text alignment: 1
  63. -- font id: 0
  64. -- text size: 12
  65. -- style flags: 0
  66. -- line height: 16
  67. -- part name: Home
  68. ----- HyperTalk script -----
  69. on mouseUp
  70.   visual effect iris close
  71.   go Home
  72. end mouseUp
  73.  
  74.  
  75.  
  76. -- part 4 (button)
  77. -- low flags: 00
  78. -- high flags: 0000
  79. -- rect: left=22 top=54 right=128 bottom=95
  80. -- title width / last selected line: 0
  81. -- icon id / first selected line: 0 / 0
  82. -- text alignment: 1
  83. -- font id: 0
  84. -- text size: 12
  85. -- style flags: 0
  86. -- line height: 16
  87. -- part name: My Name
  88. ----- HyperTalk script -----
  89. on mouseUp
  90.   show background field "My Name Info"
  91.   wait for 5 seconds
  92.   hide background field "My Name Info"
  93. end mouseUp
  94.  
  95.  
  96.  
  97. -- part 5 (field)
  98. -- low flags: 81
  99. -- high flags: 0004
  100. -- rect: left=116 top=159 right=247 bottom=456
  101. -- title width / last selected line: 0
  102. -- icon id / first selected line: 0 / 0
  103. -- text alignment: 1
  104. -- font id: 2
  105. -- text size: 12
  106. -- style flags: 256
  107. -- line height: 16
  108. -- part name: My Name Info
  109. ----- HyperTalk script -----
  110. on mouseUp
  111.   hide background field "My Name Info"
  112. end mouseUp
  113.